home *** CD-ROM | disk | FTP | other *** search
/ Merciful 2 / Merciful - Disc 2.iso / software / p / personalpaintv6.4b.dms / personalpaintv6.4b.adf / InstallPPaint < prev    next >
Text File  |  1995-07-23  |  2KB  |  77 lines
  1. .k ""
  2. .bra {
  3. .ket }
  4.  
  5. ; Cloanto Personal Paint Installation Procedures
  6. ; Copyright © Cloanto Italia srl 1992-1995  All Rights Reserved
  7. ; Cloanto is a registered trademark of Cloanto Italia srl
  8. ; Personal Paint and PPaint are trademarks of Cloanto Italia srl
  9.  
  10. Assign >NIL: PPAINTROOT: ""
  11.  
  12. Execute PPAINTROOT:PP_Locale/PP_SetLang
  13.  
  14. SetEnv PPSysInstaller FALSE
  15.  
  16. If EXISTS SYS:Utilities/Installer
  17.   Failat 21
  18.   Version >NIL: SYS:Utilities/Installer
  19.   If FAIL
  20.     PPAINTROOT:c/Deplode >NIL: SYS:Utilities/Installer T:Installer
  21.     Version >NIL: T:Installer
  22.     If NOT FAIL
  23.       Version >NIL: T:Installer 1 24
  24.       If WARN
  25.         Copy >NIL: PPAINTROOT:PP_Locale/Installer SYS:Utilities/Installer CLONE
  26.       Else
  27.         SetEnv PPSysInstaller TRUE
  28.       EndIf
  29.     EndIf
  30.     Delete >NIL: T:Installer
  31.   Else
  32.     Version >NIL: SYS:Utilities/Installer 1 24
  33.     If WARN
  34.       PPAINTROOT:c/Deplode >NIL: PPAINTROOT:PP_Locale/Installer SYS:Utilities/Installer CLONE
  35.     Else
  36.       SetEnv PPSysInstaller TRUE
  37.     EndIf
  38.   EndIf
  39.   Failat 10
  40. EndIf
  41.  
  42. If $PPSysInstaller EQ TRUE
  43.   If $PPaintLanguage EQ 0
  44.     PPAINTROOT:c/RunIcon PPAINTROOT:PP_Locale/InstPP2.eng
  45.   EndIf
  46.   If $PPaintLanguage EQ 1
  47.     PPAINTROOT:c/RunIcon PPAINTROOT:PP_Locale/InstPP2.deu
  48.   EndIf
  49.   If $PPaintLanguage EQ 3
  50.     PPAINTROOT:c/RunIcon PPAINTROOT:PP_Locale/InstPP2.fra
  51.   EndIf
  52.   If $PPaintLanguage EQ 7
  53.     PPAINTROOT:c/RunIcon PPAINTROOT:PP_Locale/InstPP2.dan
  54.   EndIf
  55.   If $PPaintLanguage EQ 2
  56.     PPAINTROOT:c/RunIcon PPAINTROOT:PP_Locale/InstPP2.ita
  57.   EndIf
  58. Else
  59.   If $PPaintLanguage EQ 0
  60.     PPAINTROOT:c/RunIcon PPAINTROOT:PP_Locale/InstPP1.eng
  61.   EndIf
  62.   If $PPaintLanguage EQ 1
  63.     PPAINTROOT:c/RunIcon PPAINTROOT:PP_Locale/InstPP1.deu
  64.   EndIf
  65.   If $PPaintLanguage EQ 3
  66.     PPAINTROOT:c/RunIcon PPAINTROOT:PP_Locale/InstPP1.fra
  67.   EndIf
  68.   If $PPaintLanguage EQ 7
  69.     PPAINTROOT:c/RunIcon PPAINTROOT:PP_Locale/InstPP1.dan
  70.   EndIf
  71.   If $PPaintLanguage EQ 2
  72.     PPAINTROOT:c/RunIcon PPAINTROOT:PP_Locale/InstPP1.ita
  73.   EndIf
  74. EndIf
  75.  
  76. Assign PPAINTROOT:
  77.